home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 2009 February / PCWFEB09.iso / Software / Shareware / IDimager Personal 4.2.0.3 / setup_IDimager_Personal_V4.exe / {app} / web / validateregister.psc < prev   
Text File  |  2008-06-04  |  1KB  |  63 lines
  1. <html>
  2.  
  3. <head>
  4.   <title>Register</title>
  5.  
  6.   <link rel="stylesheet" href="idimager.css" type="text/css"/>
  7.  
  8.   <meta http-equiv="Content-Type" content="text/html; charset=utf-8">
  9.  
  10.   %include api.inc %/include
  11.  
  12.   <style>
  13.     %include idimager.css %/include
  14.   </style>
  15.  
  16. </head>
  17.  
  18. %code
  19.  
  20. var
  21.   ADs: TDBXOMClientDataSet;
  22. begin
  23.   ADs := Catalog.NewDataSet;
  24.  
  25.   ADs.CommandText := 'select * from idUser where GUID = ''' + Request.Params.Values['GUID'] + ''' ';
  26.   ADs.Open;
  27.  
  28.   if (not ADs.Eof) then
  29.   begin
  30.     ADs.Edit;
  31.  
  32.     ADs.FieldByName('idProtected').Value := 0;        // allow access
  33.  
  34.     ADs.UpdateBatch ('idUser', 'GUID', arAll);
  35.  
  36.     result := 'User ' + ADs.FieldByName('FullUserName').Value + ' is validated to access the web service';
  37.  
  38.     // send out an e-mail
  39.     SendShortEMail (
  40.                     '%var:SMTPHost',
  41.                     '%var:AdminEMail',
  42.                     ADs.FieldByName('EMailAddress').Value,
  43.                     '',
  44.                     '',
  45.                     'Your access request for %var:Homepage',
  46.                     'Hello,<p>' + 
  47.             'Your request to access %var:Homepage is now approved.' +
  48.             '<p>Click <a href="%var:Homepage/%var:PageOffset/index.psc">here</a> to visit'
  49.                     );
  50.   end
  51.   else
  52.     result := 'User not found'
  53.  
  54.   ADs.Close;
  55.   ADs.Free;
  56. end;
  57.  
  58. %/code
  59.  
  60. </body>
  61.  
  62. </html>
  63.